home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 2.5.1.dxr / Internal_42_show in .. frames and send msg.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  1.1 KB  |  43 lines
  1. property spriteNum, pShow, pBlend, pStapjes, Pmsg, pMaxVisible
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on beginSprite me
  8.   pShow = 1
  9.   pBlend = 0
  10.   sprite(spriteNum).blend = pBlend
  11.   add(the actorList, me)
  12. end
  13.  
  14. on endSprite me
  15.   new(script("hide in .. steps"), 50, pStapjes, sprite(spriteNum).blend, sprite(spriteNum).member, sprite(spriteNum).rect, sprite(spriteNum).locZ, sprite(spriteNum).color)
  16.   deleteOne(the actorList, me)
  17. end
  18.  
  19. on exitFrame me
  20.   if pShow then
  21.     go(the frame)
  22.   end if
  23. end
  24.  
  25. on stepFrame
  26.   if pShow then
  27.     sprite(spriteNum).blend = pBlend
  28.     pBlend = pBlend + (pMaxVisible / pStapjes)
  29.     if pBlend >= pMaxVisible then
  30.       pShow = 0
  31.       sprite(spriteNum).blend = pMaxVisible
  32.     end if
  33.   end if
  34. end
  35.  
  36. on getPropertyDescriptionList me
  37.   propertyList = [:]
  38.   setaProp(propertyList, #pStapjes, [#comment: "hoeveel stapjes duurt de animatie?", #format: #integer, #default: 30])
  39.   setaProp(propertyList, #Pmsg, [#comment: "welke msg sent ie uit als ie klaar is?", #format: #symbol, #default: #Msg])
  40.   setaProp(propertyList, #pMaxVisible, [#comment: "max visible", #format: #integer, #default: 80])
  41.   return propertyList
  42. end
  43.